home *** CD-ROM | disk | FTP | other *** search
- object OmbreForm: TOmbreForm
- Left = 273
- Top = 170
- ActiveControl = BOk
- BorderStyle = bsDialog
- Caption = 'Ombre port'#233'e'
- ClientHeight = 273
- ClientWidth = 282
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- FormStyle = fsStayOnTop
- KeyPreview = True
- OldCreateOrder = False
- Position = poMainFormCenter
- OnCreate = FormCreate
- OnHide = FormHide
- OnKeyPress = FormKeyPress
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object LblPct: TLabel
- Left = 120
- Top = 16
- Width = 43
- Height = 13
- Caption = 'Opacit'#233' :'
- end
- object Label3: TLabel
- Left = 16
- Top = 16
- Width = 42
- Height = 13
- Caption = 'Couleur :'
- end
- object BAnnuler: TButton
- Left = 192
- Top = 232
- Width = 75
- Height = 25
- Cancel = True
- Caption = 'Annuler'
- TabOrder = 0
- OnClick = BAnnulerClick
- end
- object BOk: TButton
- Left = 112
- Top = 232
- Width = 75
- Height = 25
- Caption = 'Ok'
- Default = True
- TabOrder = 1
- OnClick = BOkClick
- end
- object BApercu: TButton
- Left = 16
- Top = 232
- Width = 75
- Height = 25
- Caption = 'Aper'#231'u'
- TabOrder = 2
- OnClick = BApercuClick
- end
- object ColorEdit: TColorEdit
- Left = 16
- Top = 32
- Width = 89
- Height = 21
- BorderStyle = bsSingle
- Color = clBlack
- CustomText = 'Autres couleurs...'
- ColorDialog = MainForm.GlobalColorDialog
- ReadOnly = False
- OnChange = OptionChange
- end
- object RGStyle: TRadioGroup
- Left = 16
- Top = 157
- Width = 249
- Height = 60
- Caption = ' Style '
- ItemIndex = 1
- Items.Strings = (
- 'Plat'
- 'Liss'#233)
- TabOrder = 4
- OnClick = OptionChange
- end
- object GB1: TGroupBox
- Left = 16
- Top = 72
- Width = 249
- Height = 78
- Caption = ' D'#233'calage '
- TabOrder = 5
- object Label1: TLabel
- Left = 16
- Top = 24
- Width = 13
- Height = 13
- Caption = 'X :'
- end
- object Label2: TLabel
- Left = 112
- Top = 24
- Width = 13
- Height = 13
- Caption = 'Y :'
- end
- object SEDX: TSpinEdit2
- Left = 16
- Top = 40
- Width = 81
- Height = 21
- MaxLength = 4
- MaxValue = 100
- MinValue = -100
- ShowUpDown = True
- TabOrder = 0
- Value = 10
- OnChange = OptionChange
- end
- object SEDY: TSpinEdit2
- Left = 112
- Top = 40
- Width = 81
- Height = 21
- MaxLength = 4
- MaxValue = 100
- MinValue = -100
- ShowUpDown = True
- TabOrder = 1
- Value = 10
- OnChange = OptionChange
- end
- end
- object SEOpacite: TSpinEdit2
- Left = 120
- Top = 32
- Width = 89
- Height = 21
- MaxValue = 100
- MinValue = 10
- ShowUpDown = True
- TabOrder = 6
- Value = 70
- OnChange = OptionChange
- end
- end
-